8/2/2021

Affairs

3D Plot of Affair data

Legend: x=Age, y=Num. of years married, z=Num. of affairs

Code

library(plotly)
library(tidyr)
library(dplyr)

affairs <- read.csv("./data/Affairs.csv")
affairs$children <- as.factor(affairs$children)
affairs$gender <- as.factor(affairs$gender)

plot_ly(affairs, x=~age, y=~yearsmarried, z=~affairs) %>% 
    add_markers( color=~gender, colors=c("pink","blue")) %>%
    layout( scene=list( xaxis=list(title="Age"),
                        yaxis=list(title="Num. of yrs married"),
                        zaxis=list(title="Num. of Affairs")))